co10<-c(mean(sans$Collisions), mean(unpeu10$Collisions), mean(aver10$Collisions), mean(pa10$Collisions))
ti10<-c(mean(sans$Mean), mean(unpeu10$Mean), mean(aver10$Mean), mean(pa10$Mean))
co25<-c(mean(sans$Collisions), mean(unpeu25$Collisions), mean(aver25$Collisions), mean(pa25$Collisions))
ti25<-c(mean(sans$Mean), mean(unpeu25$Mean), mean(aver25$Mean), mean(pa25$Mean))
co50<-c(mean(sans$Collisions), mean(unpeu50$Collisions), mean(aver50$Collisions), mean(pa50$Collisions))
ti50<-c(mean(sans$Mean), mean(unpeu50$Mean), mean(aver50$Mean), mean(pa50$Mean))
co75<-c(mean(sans$Collisions), mean(unpeu75$Collisions), mean(aver75$Collisions), mean(pa75$Collisions))
ti75<-c(mean(sans$Mean), mean(unpeu75$Mean), mean(aver75$Mean), mean(pa75$Mean))
co100<-c(mean(sans$Collisions), mean(unpeu100$Collisions), mean(aver100$Collisions), mean(pa100$Collisions))
ti100<-c(mean(sans$Mean), mean(unpeu100$Mean), mean(aver100$Mean), mean(pa100$Mean))
names<-c("sans peur", "un peu peur", "moyen peur","panique")
cn<-c("Collisions", "Temps moyen", "Niveau de peur", "Pourcentage des agent ayant peur")

dataco10=data.frame(co10,ti10,names)
dataco10$type="10%"
colnames(dataco10)=cn

dataco25=data.frame(co25,ti25,names)
dataco25$type="25%"
colnames(dataco25)=cn

dataco50=data.frame(co50,ti50,names)
dataco50$type="50%"
colnames(dataco50)=cn

dataco75=data.frame(co75,ti75,names)
dataco75$type="75%"
colnames(dataco75)=cn

dataco100=data.frame(co100,ti100,names)
dataco100$type="100%"
colnames(dataco100)=cn
totalData = rbind.data.frame(dataco10, dataco25, dataco50, dataco75, dataco100);

ggplot(data=totalData, aes(x=factor(totalData$"Niveau de peur",levels=unique(totalData$"Niveau de peur")),log10(totalData$Collisions), group=totalData$"Pourcentage des agent ayant peur", color=totalData$"Pourcentage des agent ayant peur")) + geom_line() + geom_point() + xlab("Niveau de peur") + ylab("Nombre de collisions")
ggplot(data=totalData, aes(x=factor(totalData$"Niveau de peur",levels=unique(totalData$"Niveau de peur")),totalData$"Temps moyen", group=totalData$"Pourcentage des agent ayant peur", color=totalData$"Pourcentage des agent ayant peur")) + geom_line() + geom_point() + xlab("Niveau de peur") + ylab("Temps moyen pour qu'un agent quitte le magasin")
boxplot(sans$Collisions, unpeu75$Collisions, aver75$Collisions, pa75$Collisions, names=c("sans peur", "un peu peur", "moyen peur","panique"), title="hhh", main="50 % des agent ayant peur", xlab="Niveau de peur", ylab="Nombre de collisions")

ggplot(totalData, aes(x=factor(totalData$"Niveau de peur",levels=unique(totalData$"Niveau de peur")),totalData$Collisions, group=totalData$"Pourcentage des agent ayant peur", color=totalData$"Pourcentage des agent ayant peur")) + geom_line() + geom_point()
ggplot(totalData, aes(x=factor(totalData$"Niveau de peur",levels=unique(totalData$"Niveau de peur")),totalData$"Temps moyen", group=totalData$"Pourcentage des agent ayant peur", color=totalData$"Pourcentage des agent ayant peur")) + geom_line() + geom_point()